SetCRScoord Subroutine

private subroutine SetCRScoord(CRStype, datumType, coord)

Initialize Coordinate Reference System, allocate memory and set parameters to default value if necessary. subroutine receives as input a Coordinate type argument

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: CRStype
integer, intent(in) :: datumType
type(Coordinate), intent(inout) :: coord

Source Code

SUBROUTINE SetCRScoord &
!
( CRStype, datumType, coord )

IMPLICIT NONE
!Arguments with intent(in):
INTEGER, INTENT (IN) :: CRStype
INTEGER, INTENT (IN) :: datumType 

!Arguments with intent(inout)
TYPE(Coordinate), INTENT (INOUT) :: coord
!------------end of declaration------------------------------------------------

CALL SetCRSsystem (CRStype, datumType, coord % system)

END SUBROUTINE SetCRScoord